home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
rem_acc
/
pagev155.zip
/
PAGEV155.Q-A
< prev
next >
Wrap
Text File
|
1996-03-03
|
4KB
|
106 lines
; RA-Pager v1.55
; (C) 1996 by Jason Raphael (1:284/22)
:START
ClearScreen
Display "
RA-Pager v1.55
"
Display "||CWould you like to page the System Operator?"
Display "||C[y/n]"
Display "||C
(YES)C(NO)
"
GetChoice YN 1
If 1 = "Y"
Assign 1 .
Display "
RA-Pager v1.55
"
Display "||CWould you like to page the System Operator?"
Display "||C[y/n]"
Display "||C
(YES)C
(NO)
"
Goto PAGE-Y
EndIf
If 1 = "N"
Assign 1 .
Display "
RA-Pager v1.55
"
Display "||CWould you like to page the System Operator?"
Display "||C[y/n]"
Display "||C
(YES)C
(NO)
"
Goto QUIT
EndIF
:PAGE-Y
ClearScreen
Display "
RA-Pager v1.55
"
Display "||
Why would you like to chat with the SysOp?|"
Display "|
(------------------------------------------------------------------)|"
Capitalise OFF
Display "C"
Ask 68 2
If 2 = ""
Goto NOINPUT
EndIf
If 2 = "QUIT"
Goto QUIT
EndIf
ClearScreen
Display "|
█
█
RA-Pager v1.55
█
█
"
Display "
█
Reason
──>
"
ListAnswer 2
Display "AC
█
"
MenuCmnd 11
One moment.. Paging System Operator..
ClearScreen
Display "
RA-Pager v1.55
"
Display "||CWould you like to leave a message for the System Operator?"
Display "||C[y/n]"
Display "||C
(YES)C(NO)
"
GetChoice YN 3
If 3 = "Y"
ClearScreen
Assign 3 Yes
Display "
RA-Pager v1.55
"
Display "||CWould you like to leave a message for the System Operator?"
Display "||C[y/n]"
Display "||C
(YES)C
(NO)
"
MenuCmnd 27 1 /T=SysOp
Goto END
EndIF
If 3 = "N"
Assign 3 No
Display "
RA-Pager v1.55
"
Display "||||||C
(YES)C
(NO)
"
Goto END
EndIF
If 3 = ""
ClearScreen
Assign 3 [Chatted with SysOp]
Goto END
EndIF
:NOINPUT
ClearScreen
Display "
RA-Pager v1.55
"
Display "||
Please enter a reason (what you would like to talk to the SysOp about) or type"
Display "|
QUIT
to exit RA-Pager."
Display "||
Press (Enter) to continue.."
WaitEnter
Goto PAGE-Y
:QUIT
Assign 2 [Page aborted]
Assign 3 No
Goto END
:END
ClearScreen
Display "
RA-Pager v1.55
"
Display "||
Thanks for using RA-Pager v1.55. Now exiting.."
OutputAnswer "RA-Pager executed by A [3] on node W (J, I)"1
OutputAnswer "- Reason: " 2
OutputAnswer "- Left a message: " 3
Exec *C /c ra-pager.bat
Quit